home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
TASEXAM6.ARJ
/
RSIST.TAS
< prev
next >
Wrap
Text File
|
1992-01-26
|
1KB
|
33 lines
#index 'SPX'
#MAX_QUOTES 100
#OUTPUT_FILE 'RSISTO.LST'
RS : ARRAY; { Relative Strength Array}
OFS : ARRAY; { Initial Offset array}
rsroc: array;
rsi_array : array;
rsi12: array;
stoch_array : array;
stoch_array = stoch(14,3);
RS=mulby(div(C,index),100);
set(OFS,RS[1]);
RS=SUB(RS,OFS);
rsroc=ROC(RS,5,'%');
rsi_array=RSI(14);
rsi12=MOV(rsi_array,12,'E');
rsidif: array;
rsidif=SUB(rsi_array,rsi12);
d3_array : array;
d3_array = mov(stoch_array,3,'E');
ma_array = mov(c,21,'E');
if d3_array[-1] <= 30 AND
stoch_array[-1] < d3_array[-1] AND
stoch_array > d3_array AND
C < ma_array AND rsroc>(-2) AND rsidif> (-10) THEN
WRITELN('BUY SIGNAL ON ', TICKER, C, stoch_array, rsi_array,);
if d3_array[-1] >= 70 AND
stoch_array[-1] > d3_array[-1] AND
stoch_array < d3_array AND
C > ma_array AND rsroc< 2 AND rsidif< 10 THEN
WRITELN('SELL SIGNAL ON ', TICKER, C, stoch_array, rsi_array,);
end;